home *** CD-ROM | disk | FTP | other *** search
/ Asobe! Fotoshock 5.0 ERO / Asobe! Fotoshock 5.0 ERO.iso / pc / main.dxr / ì‡ë†_6_photoOpen.ls < prev    next >
Encoding:
Text File  |  1999-03-23  |  1.4 KB  |  47 lines
  1. property spriteNum, pphotonum
  2. global grefnum, gmyphotonum, gphotoloclist, grgbspnum, grgblist, gdefaultdata, gsaveddata, geyesinfo
  3.  
  4. on beginSprite me
  5.   set pphotonum to the name of the member of sprite spriteNum
  6. end
  7.  
  8. on mouseDown me
  9.   cursor(4)
  10.   go("photo")
  11.   updateStage()
  12.   set gmyphotonum to pphotonum
  13.   set gphotoloclist to value(line value(gmyphotonum) of gsaveddata)
  14.   sort(gphotoloclist)
  15.   set mlist to [:]
  16.   repeat with m = 1 to count(gphotoloclist)
  17.     set mlist to getAt(gphotoloclist, m)
  18.     sort(mlist)
  19.     if not (findPos(mlist, #rgb) = VOID) then
  20.       set grgblist to getaProp(mlist, #rgb)
  21.     end if
  22.   end repeat
  23.   set grefnum to 0
  24.   set grgbspnum to 0
  25.   set stagerect to the rect of the stage
  26.   set the rect of window pphotonum to inflate(stagerect, -48, -70)
  27.   set the windowType of window pphotonum to 2
  28.   set the fileName of window pphotonum to "@/dir/" & string(pphotonum)
  29.   open(window pphotonum)
  30.   set eyes to line value(pphotonum) of field "eyesPointList"
  31.   set geyesinfo to value(eyes)
  32.   case gmyphotonum of
  33.     2, 28:
  34.       set toolwidth to 112
  35.       set toolhight to 210
  36.     otherwise:
  37.       set toolwidth to 208
  38.       set toolhight to 210
  39.   end case
  40.   set pix to 43
  41.   set the rect of window "Tools" to the rect of the stage + rect(800 - toolwidth, pix, 0, -(600 - (pix + toolhight)))
  42.   set the windowType of window "Tools" to 49
  43.   set the fileName of window "Tools" to "@/tool"
  44.   open(window "Tools")
  45.   cursor(-1)
  46. end
  47.